4 REM ONERRORGOTO7
5 REM BY ROBERT SIEG 12/17/2020
6 CLS:ONBREAKGOTO1000
7 CLS:DIR"D.BAS":IFPEEK@(16384+7)=68 AND PEEK@(16384+8)=110 AND PEEK@(16384+9)=66 AND PEEK@(16384+10)=65 AND PEEK(16384+11)=83 THEN 20 ELSE CLS:GOTO6000
20 DIR
30 A$=INKEY$:IFA$<>""THEN20
40 GOTO30
1000 C1=PEEK@(16384+C3)
1010 C2=128
1020 POKE@16384+C3,C2
1030 POKE@16384+C3,C1
1040 A$=INKEY$:IFA$=""THEN1020
1050 IFA$="Z"THENC3=C3+32:IFC3>32*15THENC3=32*15:GOTO1000ELSE1000
1060 IFA$="W"THENC3=C3-32:IFC3<0THENC3=0:GOTO1000ELSE1000
1065 IFA$="-"THENEND
1070 IFA$=CHR$(13)THEND1=0:GOTO2000
1080 GOTO 1020
2000 FORA=16384+C3+7 TO 16384+C3+31
2002 T=PEEK@(A+5-32)
2003 IFT=126THENF$="DIR"
2004 T=PEEK@(A+8-32):IFT=110THENT=PEEK@(A+9-32):IFT=110THENF$=".."
2005 B=PEEK@(A):IFB>108THENB=B-64
2007 IFB=96THENB=32
2010 CL$=CL$+CHR$(B)
2020 NEXTA
2030 CLS:PRINTCL$
2040 IF F$="DIR" THEN DIR=CL$:CL$="":F$="":GOTO7
2050 IF F$=".." THEN CL$="":F$="":DIR="..":GOTO7
2060 FORL=LEN(CL$) TO 1 STEP-1
2066 IFSK=1ANDMID$(CL$,L,1)=" "THENSP=SP+1:GOTO2080
2068 IFMID$(L$,L,1)<>" "THENSK=1
2070 IF MID$(CL$,L,1)=" " THEN M=M+1
2080 NEXTL
2085 SK=0
2090 J=LEN(CL$)-M:F$=LEFT$(CL$,J)
2100 PRINT"PRESS M FOR ML LOAD"
2110 PRINT"PRESS B FOR BASIC LOAD"
2112 PRINT"D=DELETE FILE."
2115 PRINT"Q=QUIT (YOU MAY NEED TO LOAD IT   MANUALLY.)"
2120 A$=INKEY$:IFA$=""THEN2120
2125 FORA=LEN(F$)TO1 STEP-1
2126 IFASC(MID$(F$,A,1))=32THENBB=BB+1
2127 IFASC(MID$(F$,A,1))<>32THENF$=LEFT$(F$,LEN(F$)-BB):BB=0:GOTO2130
2128 NEXTA
2130 IFA$="M"THEN PRINT"EXECUTE IT":LOADM F$
2140 IFA$="B"THEN PRINT"RUN IT":LOAD F$
2142 IFA$="D"THEN5000
2145 IFA$="Q"THENCLS:PRINT"BYE! DO WHAT YOU HAVE TO.":END
2147 IFA$="-"THEN END
2150 PRINT"TRY AGAIN":GOTO2100
2666 IFSK=1THEN2080
3000 REM BY ROBERT SIEG
3010 REM ALWAYS PRESS BREAK TO  GET THE SELECTION CURSOR        SELECT EITHER A DIRECTORY OR    A PROGRAM TO RUN IT BY HITTING  ENTER.
3020 REM THEN PRESS M FOR ML    LOAD AND AFTER YOU TYPE         EXEC (ENTER)                    OR PRESS B FOR BASIC AND TYPE   RUN (ENTER)
3030 REM SIMPLE BUT VERY USEFUL
5000 PRINT"ARE YOU SURE?"
5010 A$=INKEY$:IFA$=""THEN5010
5020 IFA$="Y"THEN A$="":KILL CL$
5025 CL$="":M=0
5030 GOTO7
6000 IF D1 = 1 THEN 20
6010 PRINT"DO YOU WANT A COPY OF THIS      DIRECTORY PROGRAM HERE?"
6020 A$=INKEY$:IFA$=""THEN6020
6030 IFA$="Y"THEN SAVE"D"
6035 CL$="":M=0
6040 GOTO20
